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MODULE MAIN (23TITLE ‘Main module’ 
MAIN = MAIN 
IDENT = 'v04-000° 
= 
BEGIN 


' 
MAPASESILILI STIS IT TT TTT TET TTT rrr iii irri cist icici i iiiiiiity 


| y 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
ie ALL RIGHTS RESERVED. : 
4 ca 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER © 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
oh 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT © 
ie CORPORATION ‘ 
* 

* 

* 

we 

® 

* 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
| ceiebbndtenbieateenmnehensaneneneunsenendsenensesennenotanantensesneneiinl 
i 


ee 


i FACILITY: 
: Backup/Restore 


i ABSTRACT: 
$ This is the main module. 


i ENVIRONMENT: 
: VAX/VMS user mode. 


AUTHOR: M. Jack, CREATION DATE: 25-Aug-1980 
i MODIFIED BY: 


' 

i v03-005 JEPO003 J. Eric Pollack, 23-Apr-1983 10:53 
Add support for encrypted savesets. 

i V03-004 ACGO313 Andrew C. Goldstein, 12-Feb-1983 16:24 
Add routine subtitles 

i v03-003 LMP0044 L. Mark Pilant, 21-Oct-1982 15:15 
: Add support for saving and restoring ACL's. 

v03-002 LMP0032 L. Mark Pilant, 22-Jun-1982 10:36 


Add support for wildcard save set names on a LIST or RESTORE 


fed Main module 3 -1 211: VAX-11 BL iiss =32 v4.0-742 2 
04-000 ea een eee Pee ee GA SteaBkccue eacomain.es2:0°%" c18 
38 } : operation. 
60 1/ v03-001 MLJ0088 Martin L. Jack, 13-Apr-1982 15:27 
61 : i Avoid access violation for /LIST/VERIFY. 
8 Si v02-006 MLJ0054 Martin L. Jack, 15-Oct-1981 17:06 
64 b46 1! Exit with preser SSTATUS value. Implement /VOLUME. Move 
65 : : : STAACP globals to common. 
&§ 7 1 v02-005 MLJ0037 Martin L. Jack, 29-Aug-1981 16:06 
o8 58 ; : Avoid STA_MOUNT of output tor 7 IMAGE / COMPARE . 
0 m0 1: v02-004 ACG0211 Andrew C. Goldstein, 16-Jul-1981 10:29 
i a ; : Implement sequential disk support 
rg 1/ v02-003 MLJ0020 Martin Jack, 20-Apr-1981 22:07 
R : : Implement / JOURNAL pi fier. 
2 1 v02-002 MLJ0012 rtin L. Jack, 27-Mar-1981 16:06 
a AA ; Force /VERIFY *, if 7 COMPARE Specified 
79 13 v02-001 MLJ0010 Martin L. Jack, 25-Mar-1981 16:12 
80 80 1! Reorganize global storage. Add capability for Listing 
81 ei 1! concurrent with another operation. Add image restore. 
8 ag 1! Add standalone operation. 
8 83 1! 
84 1 See 
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REQUIRE ‘SRC : COMMON 
LIBRARY *SYSSLIBR YR TARLET®: 
EQUIRE *L1B$:BAC CADE 


— 
— =s 
wrnn—w" 


3 1 
3 | 
3 1 
: 3 18c8 4 
is +2 16464 1 FORWARD ROUTINE 
l3 3 1645 1 MAIN_HANDLER, ! Condition handler for main routine 
; Mb 0 | 1 MAIN; ! Main routine 
; e 1868 4 
3 4 18¢8 1 EXTERNAL ROUTINE 
.- § 16 9 1 LIBSCRC_TABLE: ADDRESSING_MODE (GENERAL), 
3 hs 16 1 : Compute CRC vectors 
3 16 ¢ 1 STA_INIT: NOVALUE WEAK, | Initialize standalone version 
3 199 16 1 STA_RESTART: NOVALUE WEAK,  ! Restart standalone version 
: 101 1654 «#1 STA_MOUNT: NOVALUE, : t a volume 
; 19¢ 1655 1 COMMAND : NOVALUE, ' Parse command 
3 19 1626 1 SAVE: NOVALUE, ' Driver for save 
9 1657 1 RESTORE: NOVALUE, ' Driver for restore 
: 105 1038 1 INIT_LIST a Mote Be pots tel ise Listing 
3 106 1659 1 FIN CIST: NOVALUE, ' Finish | sting 
3: 10 1660 1 OPER JOURNAL : NOVALUE WEAK, ! Open journal file 
; 108 1661 1 CLOSE_JOURNAL : NOVALUE WEAK, ' Close journal file 
; 109 1996 1 LIST: NOVALUE, ! Driver for List-only 
; 110 1665 1 LIST_JOURNAL : NOVALUE WEAK, ! List journal file 
3111 1664 1 ANALYZE: NOVALUE, ! Driver for analysis 
: 18 1665 1 fice ERROR ' Signal a file reolated error 
: 11 1666 1 CRYPTO_INIf: | NOVALUE WEAK, ! Initialize saveset encryption 
3 YP N VALUE WEAK; 4 nalize encrytion streams 
‘38 ot 4 : CR TO- FINI: NOVALUE WE ! Finali i 
; 116 1669 1 EXTERNAL LITERAL 
; 117 1670 1 BA CKUPS" _BADSETCNT, 
s 118 1671 #1 ACKUP$_OPENIN 
> 119 167 1 BACKUPS _NOF ILES; 
; 120 1673 1 
: 15) 1678 
a. e § 1079 1 EXIT_STATUS: BBLOCK(4]; ! Image exit status 
i Ray 
: 126 1679 1 GSDEFINE(GBL); ! Define global common area 
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le bs “1 711: VAX-11 Bliss-32 V4.0-74 P 4 
LER = main condition handler 1-360-1986 99:45:88 D1 SKSVMSMASTER-COACKUP-SRCIMAIN.B32;1°7 (3) 


ZSBTTL "MAIN_HANDLER = main condition handler’ 
ROUTINE MAIN_HANDLER(SIG,MECH)= 


ee 


: 


SIDE EFFECTS: 
NONE 


SES 


6 ‘ 
5 ' FUNCTIONAL DESCRIPTION: 
6 : This routine is established as the condition handler for routine MAIN. 
? : It saves the most severe error for the image exit status. 
i INPUT PARAMETERS: 
Ms } 1} - Standard VMS condition handler parameters. 
92 i 
98 ' JMPLICIT INPUTS: 
Re : NONE 
%6 i OUTPUT PARAMETERS: 
eee NONE 
39 i IMPLICIT OUTPUTS: 
39 : EXIT_STATUS - The most severe error status. 
0¢ i ROUTINE VALUE: 
SSS_RESIGNAL. 
i 
i 
i 


S& 


=SPRIPIPINIAD HELPIJPIJINO PIPPIN a at ss st kk kk kt at td ts 2 ot ot ot 
i) 
— 
2 


$1G: REF BBLOCK, ! Signal parameters 
sim MECH: REF BBLOCK; ! Mechanism parameters 
COND= SIGCCHFSL_SIG_WAME]: BBLOCK; ! Condition 


If 


NOT .C AND 
(. CONDCSTS$V_SEVERITY] GTRU .EXIT_STATUSCSTSS$V_SEVERITY] OR 
-EXIT_STATUSCSTS$V_SEVERITY)) 


THEN 
EXIT STATUS = .COND; 
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SS$_RESIGNAL 
END; 


-TITLE MAIN Main module 
-IDENT \v04-000\ 


-PSECT COMMON,NOEXE, OVR,2 


00000 GLOBAL_BASE: 
BLKB OO 


ibeseo-t9ge 90:11:59 


| 
| 
| 00000 FREE_LIST: 
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BL a 
00008 INPUT WALT: , 
00010 REREAD_WAIT: . 
00018 OUTPUT_wAIT: 

-BLKB OB 
0020 JPI_UIC:.BLKB 4 
0024 JPI-USERNAME : 

LKB 12 

00030 JPI_DATE: ‘ot 
00038 JPL_NODE DESC: . 
00040 JPL_CURPRIV: : 
00048 SYI_VERSION: 

-BLKB 4 
0004C SYI_SID:.BLKB 4 
00050 RwS9_HOLD LIST: , 
00058 RwSV_CRCi6: ie 
00098 RWSV_AUTODIN: 

-BLKB 64 
000D8 RWSV_FILESET ID: 

BLK 8 
Q00EO RwSV -VOLUME | 1D: - 


OOOEC RWSV_VOL “HUMBER: 
OOOEE RWSV_SEG “AUMBER: 
OOOFO RWSV_FILE NUMBER: 
000F4 RWSV_SAVE aU 
OOOF8 RWSV_SAVE FAB: 
OOOFC RWSV_CHAN: 
00100 RWSV_XOR BCBS 
00104 RUSV_IN_SE 0: 
00108 RWSV_IN_SEG 
0010¢ RWSV_IN_XOR Seo: 
00110 RWSV_IN_XOR_RFA: 
00116 RWSV -LOOiANERD: 
00117 RwSV -XORSIZE: 


2 
2 
4 
4 
4 
4 
4 
4 
4 
& 
6 
1 
00118 RWSV_IN_ GROUP “SIE: 


Page 
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0011¢ RUSV_IN_ERRORS: 
0011€ nWSV_IN_iORUSE: 
00120 RWSV_IN_ORGERR: 
00128 RUSV_IN_VBN: 
0012C RWSV_IN_VBN a 
00130 RUSV_ALLOC: 
00134 RWSV_EOF: , 
00138 RWSV_OUT_ SEQ: 
0013C RWSV_OUT_VBN: 
00140 RwSv_ouT peor. COUNT: 
00144 RWSV_OUT_ RRORS: 
00146 RWSV_SEQ_ “ERRORS: 
00148 RwSV_OUT “GROUP. COUNT: 
00149 RWSV_PADDING: 


-BLK 
Q0014C QUAL: _.BLKB 
Q0O1BC COM_SSNAME : 


.BLKB 
001C4 COM_VALID TYPES: 
001C6 COM_ FLAGS: 
001¢8 COM PADDING: 
001¢9 COM_BUFF COUNT: 
001CA COM_1_SETCOUNT: 
-BLKB 
001CB COM_O_SET OUNT : 
001CC COM_1_STRUCNAME 
00108 COM_O_STRUCNAME : 
001E4 COM_O_BSRDATE: 
-BLKB 
OO1EC ALT SNARE: 
0020¢ INPUT FUNC: | 
00200 INPUT _RTYPE : 
0020E OUTPUT_FUNC: 


- Fr FF Fr Ff Ff OnmyNn *& 
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ee 


0020F FAST _strictey: | 
00210 Input seb: 
00210 INPUT_CHAN: 
00214 INPUT Figs 
00216 INPUT _PADDING: 
00218 INPUT thar 
0021¢ INPUT _NARCE® 
00220 INPUT sci. 
00224 INPUT QUAL 
00228 INPUT_BAD: 
0022¢ INPUT BLOCK: 
00230 INPUT ~~ 
00234 INPUT_MEDIA_ID: 
00238 INPUT _WAMEDESC: 
00240 INPUT -STATBLE: 
00248 INPUT HOR BEG: 
00248 INPUT _CREDATE : 
00250 INPUT_REVDATE 
00258 INPUT_EXPDATE: 
00260 INPUT “BAKBATE: 
00268 INPUT “FLCEOUNER: 
0026C INPUT_FILECHAR: 


“BLKB 
00270 INPUT _RECATIR: . 


rs 5 ew wewreoewmmnrnrererererrEFNN EO = 


-BLK 

00290 INPUT_HDR_END: 

00290 INPUT_END: 

00290 INPUT _PROC List: 

00294 INPUT_PLACEMENT: 
-BLKB 

0029C INPUT_VBN_LIST: 
-BLKB 
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MAIN Main module 
vO4~000 MAIN_HANDLER = main condition handler 


iSsepntage 99:53:88 
00244 INPUT_PLACE_LEN: 
00246 INPUT PADDING. 2: 
0028 OUTPUT_BEG: 
002A8 OUTPUT CHAN: 
002AC OUTPUT FLAGS: 
OO2AE OUTPUT_PADDING: 
00280 OUTPUT “Fist 
00284 ouTPUT it 
00288 OUTPUT “pipe 
002BC OUTPUT a 
002C0 ouTPUT Bip: 
002¢4 OUTPUT si gtk: 
002¢8 OUTPUT _MAXBLOCK: 
oo2cc OUTPUT _DEVGEOM: 
00204 OUTPUT_ATTBUF : 
00364 OUTPUT _END: 
00364 LISt_totéites: 
00368 LIST _rorsizes 
0036C VERIFY_ FAB: 
00370 VERIFY _USE “COUNT 
00374 VERIFY 0A: 
00378 COMPARE _BcB: 
0037C FAST _puriehe 
00380 FAST “purer SIZE: 
00384 FAST_RVN: 

00385 FAST “pADBaNe 
00386 DIR _vencintts 
00388 FAST_VOL_BEG: 
00388 FAST_IMAP_ SIZE: 


or fF F&F fF fF SF FNM NY SF OW HD 
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ee 


Main 
MAIN 


HANDLER = main condition handler 


1Ssen-1966 90:19:39 


-BLKB 
0038C FAST_IMAP: 


-BLKB 
00390 FAST_HDR_OFFSET: 
00394 FAST 6007 ,LBN: 


00398 FAST_VOL"END: 
00398 JOUR_BUFFER: 
0039C JOUR_DIR: 
003A0 JOUR_WIBLES 
003A4 JOUR_EFBLK: 
003A8 JOUR_ -INeixks* 
OO3AC JOUR_ FFBYTE: 
OO3AE JOUR_ “INBiTES 


LK 
00380 JOUR_STRUCT LEV: 


~BL 
00382 JOUR_COUNT: | 
00383 JOUR_REVERSE : 
00384 JOUR_EXS2: 
.BLKB 
00386 JOUR_PADDING: 


BLK 
00388 CHKPT_HIGH SP: 


003B8C CHKPT_LOW SP: 
003CO CHKPT_STACK: 

003C4 CHKPT vais: 
003C8 CHKPT _stAtus: 


LK 
O3CC pie ~BEG ~BLK 
O5CC DIR-CHA 


FeLKe 
00300 DIR_NAM: .BLKB 
00304 DIRDEV_DESC: 


.BLKB 
00308 DIR_SEL_DIR: 
003E0 DIR_SEL_NIV: 
003E8 DIR_STRUCLEV: 

.BLKB 
0039 DIR_LEVELS: 

-BLKB 
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MAIN Main modul 16-Sep-19 0:11:39 VAX-11 Bliss-32 V4.0-742 0 
04-000 MAIN_HANDLER = main condition handler 16-Se0-1984 of 14:22 DISKSVMSMASTER: CBACKUP. SRCJMAIN.B32; ? oe 


ie J 


OOSEA DIR_FLAGS: 
OO3EB DIR _stavis: . 
OOSEC DIR * seamen 
0052C DIR_STACK: 


0790 DIR_SP: :B 
0794 DIR: aSELLLA 
-B 
I 


28788 BIR EURac 


LKB 


| 
kB 
TEST: 
K 
LKB 
MIT 
LK 
0078¢ INPUT ATL: 
007c0 OUTPUT MTL: 
007¢4 CURRENT ATL: 
007¢8 CURRENT_VCB: 
007¢C¢ CURRENT WCB: 
00700 ACL_FIB_DESCR: 


007D8 ACL_FIB:.BLKB 
00818 ACLULENGTH: 


-BLKB 
0081C ACL_BUFFER: 

-BLKB 
| 00820 CRYP_IN CONTEXT: 
00824 CRYP_OU -CONTEXT: 
00828 CRYP_DA ~CONTEXT: 
0082C CRYP_DATA ENCIV: 

00834 CRYP_DATA CODE: 

00838 CRYP_DATA KEV: 

00840 CRYP_DATA Iv; 
00848 CRYP_DATA_CKSM: 

-6LKB 
| 
| 
| 
| 


> @ooeonronre *£ ff FR OM R RR 


.PSECT DATA,NOEXE,2 
00000 EXIT_STATUS: 
.BLKB 
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io Rain mod 1b-sep 0: VAK-11 Bliss-32 V4.0-7 1 
MA D R = main condition handler 14 pa 138 9 3}: HA DISKSVMSMASTER: : (BACKUP. SeRCIMAIN. 832;1 page RY 


a 


| -EXTRN BACKUP$_BADSETCNT 
| -EXTRN BACKUP$-OPENIN BACKUPS_NOFILES 
.WEAK = STA_INIT AR 
| “WEAK —OPER_ JOURNAL ,~ CLOSE JOURNAL 
WEAK =LIST~ JOURNAL, CRYPTO_INIT 
«WEAK CRYPTO_ 


«PSECT CODE .NOWRT,.2 


| 
| 
} 
52 00000000" €F 9 000 ivan ERYt Sfarus. a2 Ree 
50 06 A a i ited ADDL rT Sig tit : 1715 
1 60 £8 0006 pips (RO), 2$ + 1719 
3} 6 8 00 EF 0001 EXTZv #0, Ag EXIT_STATUS, R1 3 1 
1 6 09 ED 0016 CMPZ7V. #0. #3. (RO)T RI : 
03 1A 00018 BGTRU 1$ : 
0 62 E9 0001D BLBC —- EXIT_STATUS, 2$ ; 1721 
§ 6 b0 90020 1$ VL (RO) EXIT_STATUS : 1723 
0918 8F 3C 00023 2$ MOVZWL #2328, RO : 1727 
04 00028 : 
; Routine Size: 41 bytes, Routine Base: CODE + 0000 
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module 16-Sep-19 211: VAX-11 Bliss- 
= main routine for BACKUP 19-808- 1 9be 90:34:22 DISKSVMSMAS 
ZSBTTL "MAIN = main routine for BACKUP’ 
ROUTINE MAIN= 


- 
aa 


FUNCTIONAL DESCRIPTION: 
This is the main routine. It provides the top-level control. 


INPUT PARAMETERS: 
Standard VMS activation parameters (not used). 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


Exit status. 
SIDE EFFECTS: 
NONE 


LOCAL , é 
: REF BBLOCK; ! Pointer to the input FAB 


: Establish the handler. 

EXIT_STATUS = SS$_NORMAL; 

-FP = MAIN HANDLER; 

! Initialize the standalone version if STA_INIT is present. (This will 
: Feestablish the handler in STALINIT for This routine.) 

If STA_LINIT NEQ 0 THEN STA_INIT(); 


: Get the command. 
COMMAND () ; 


: Initialize various globals. 


1 Rc_T (UPLIT(%0"120001°), RWSV_CRC16); 
Ree riatiesg x" pope 320" RWSV_AUTODIN); 
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4 
module 1-5 -1984 00:11: VAX-11 Bliss-32 V4.0-74 P 1 
= main routine for BACKUP 12-808 98e 99:33:82 DL SKSVMSMASTERSCBACKUP SRCIMAIN.B32; 1°" (a3 
INPUT_RTY ¥SK_VBN; 
OUTPUT FUNC = Tos oR TE veux: 
COR_VACID YPES = 
oes 
1° " SUMMARY ¢ 


Initialize the saveset encryption context if required 

If .QUALCQUAL_SS_ENCRYP] AND CRYPTO_INIT NEQA 0 THEN CRYPTO_INIT(); 

: Call the standalone ACP to mount the input and output volumes if required. 
If NOT .QUALCQUAL _PHYS] 

THEN 


BEGIN 
i" -QUALCQUAL_IF11] AND .COM_FLAGSCCOM_STANDALONE J 


STA_MOUNT (0); 
IF ,QUALCOUAL OF 113 AND (.COM_FLAGSCCOM_STANDALONE) OR (.QUALCQUAL_IMAG] AND NOT .QUALCQUAL_COMP))) 


BEGIN 
IF .QUALCQUAL_VOLU) 
THEN 


REF BBLOCK; ! Pointer to MTL entry 


STA_MOUNT(1, 0); 
MIL~= .OUTPUT_MIL; 

IF MTL MTL SET COUNT NEQ 1 THEN SIGNAL (BACKUP$_BADSETCNT); 
MILCMTL_RVN-BASE) = .QUALCQUAL voLy VALUE J; 

STA_MOURT(1> .QUALCQUAL_VOLU_VALUEJJ; 


END 
ELSE 
STA_MOUNT(1); 
END; 
END; 
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module 16-Sep-1984 00:11: VAX-11 Bliss-32 V4.0-742 P 14 
- mete routine for BACKUP 12-868-1 382 99:34:32 DISKSVMSMASTER: (CBA KUP. SRCJMAIN.B32;1 >" (4) 
H Initialize the Listing if required. 
IF .QUALCQUAL_LIST] THEN INIT_LIST(); 


: Execute the command. 


INPUT_FLAGSCINPUT_SSFOUND] = FALSE; ! No save set found as yet 


BEGIN 
ee LISTS AND .QUALCQUAL_OUTP_LISTJ EQL 0 


Co: 
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FUN“ OOONOUE UN “OOOO 25 


BEGIN 

IF .QUALCQUAL_INPU_LIST) EQL 0 
BEGIN 
List journal. 


864 iF .QUALCQUAL_JOUR] THEN LIST_JOURNAL(); 
Bs ELSE 

rt BEGIN 

868 

86 


i List save set. 


ay Set all record types valid and call LIST or ANALYZE as appropriate. 

87@ QUALCQUAL_VERI] = FALSE; 

87 COM_VALID_TYPES = <1; 

874 IF [QUALCOUAL_ANAL] 

875 EN 

o76 ANALYZE () 

87 ELSE 

378 LIST() 

87 END; 

880 IF NOT .COM_FLAGSCCOM_EOV) THEN FIN_LIST(FALSE); 
¢ ELSE 


BEGIN 


! If disk-to-disk or disk-to-tape operation, call SAVE. If tape-to-disk 
' operation, call RESTORE. 


iF .QUALCQUAL_1IF11) 
THEN 
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BEGIN 
IF NOT .QUALCQUAL _OSAV] THEN QUALCQUAL JOUR] = FALSE; 
IF .,QUALCQUAL_JOUR] THEN OPEN_JOURNAL (TRUE); 


SAVE (); 
IF ,QUALCQUAL_JOUR] THEN CLOSE _ JOURNAL (TRUE); 


oo 
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ELSE 
RESTORE (); 
ND; 
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ND 
wie NOT .COM_FLAGSCCOM_EOV) AND .INPUT_FLAGSCINPUT_WILDSAVE); 
F wd -COM_FLAGSCCOM_VERIF YING] 


e 
<n routine for BACKUP 


BEGIN 
4 » INPUT _FLAGSCINPUT _WILDSAVE) 
tren If NOT .INPUT_FLAGSCINPUT_SSFOUND) 


BEGIN 
FAB = .RWSV_SAVE_FAB; 

FILE ERROR TBACKOPS_OPENIN+STSSK_SEVERE, .FAB, SS$_NOSUCHFILE); 

IF NOT (QUAL COUAL PHYS] AND NOT .COM_FLAGSCCOM_FILESEEN] AND NOT .QUALCQUAL_LIST) 
SIGNAL (BACKUP =NOF LES. 

BBLOCKCTQUALCGUAL_[NPU_LIST], QUAL_EXP_DESC)); 

! Finish the Listing if required. 


if .QUALCQUAL_LIST] THEN FIN_LIST(TRUE); 


! If this is the standalone version, restart the image. 

IF .COM_FLAGSCCOM_STANDALONE) THEN STA_RESTART(); 

: Close any remaining encryption contexts 

If .QUALCQUAL_SS_ENCRYP] AND crypto_fini NEQA 0 THEN crypto_fini() ; 
' Return to operating system. 

sEXIT_STATUS OR STS$M_INHIB_MSG 


029 -BLKB 3 
0000A001 0002C P.AAA: .LONG 40961 
£DB88320 00030 P.AAB: .LONG 306674912 
OFFC 00000 MAIN: .WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
B 00000000' EF 9E 0000 VAB EXIT STATUS, R11 
A 00 6 9E MOVAB CRYPTO FINI. R10 
9 0¢ G 3 00010 MOVAB FIN LIST, R9 
§ 00 6 9€ 0001 MOVAB LIBSSIGNAL, R8 
if G 9E 00016 MOVAB CRYPTO_INIT, R7 
¢ it 9E MOVAB Liescrt TABLE. R6 
0 6 9€ 000 ¢ MOVAB STA_INIT, R 
& 0 06 3 MOVAB STACROUNE » RG 
3 0 Ff . A MOVAB QuAc | R3 
6B 3 1 MOVL #1, EXIf_STATU 
$0 85 AF 9E 00044 MOVAB MAIN HANDLER, (FP) 
0 65 9E 00048 MOVAB STA_INIT, RO 
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03 
6€ 
FE 


30 


000000006 
0080 


00 
000000006 
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FC 
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000000006 
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Bliss-32 ¥4.0-742 P 
VMSMAS TER: (BACKUP. SRCJMAIN.B32; 1 
1 
, STA_INIT 
"0 COMMAND 
RwSv_CRC16 
PAAR 
3 LIBSCRC _iAsue 
Rusy AUTOD! 


IBSCRC_TABLE 
sg INPUT FUNC 


g sate WALID. TYPES 
fi it FUNC 

#99. COM “YACIBe TYPES 
#4, QUAL? $ 
RYPTO. INIT. RO 
#0, CRYPTO_INIT 
#5, QUAL+1 - 


H4, QUAL +1 
fom. 13 +s 


5$ 


QUAL+14, 7$ 
#i, -(SP) 


STA_MOUNT 
gufpur ATL 
(MTL, #1 
#BACKUPS$_BADSETCNT 
SIGNAL 


#, 
QUAL+79, 48(MTL) 
-(SP) 


QuAL +79, 
#2, STA_MOUNT 
8$ 


INIT_LIST 
1, Input FLAGS+1 
QuA L+11, T4$ 
QUAL +4 
148 
QUAL 
, QUAL+10, 13% 
LIST_JOURNAL 


#128, QUAL+13 


Ausite 
oe 
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4 
modu 1b-se -1 :11: VAX-11 Bliss-32 V4.0-742 Page 17 
v04-000 Rin eels routine for BACKUP Wea een ee Fae ey Pee ntAlSfeaccbaccus Secamain.e32s0°%" ca) 
AE 0012A MNE #1, COM_VALID_TYPES 3 1873 
wa FC g 5 1 BLB Q rts 12 3 18r4 
000000006 re CALLS r) P ANALYZE ; 1876 
00000000 : A #0, LIST : 1878 
7 ? 73 A ES 16 188: BLBS. CORFLAGS. 19$ ; 1830 
= re 128 dt A a ne ? 1855 
2F 03 «Ad 100140 14%: BBC a QuAL +15, 17$ : 1888 
03 A 55 iste Q AL+15 ; 1891 
+ i eas f we BEES BR BRST a a 
800000006 1 re LS 168 CALLS #1, Oren JOURNAL : 1893 
12 mrs oD ef 194 "BBC #6. QUAL*10, 18S + 189% 
DD 176 PUSHL #1 ; 
000000006 00 } FB 178 CALLS “, CLOSE _ JOURNAL ; 1888 
000000006 A #0, RESTORE + 189 
9 6E AS EB i } 1a BLbE COM_FLAGS, 19$ + 1900 
03 oosc 43 ma) a BBC ‘ A INPUT FLAGS, 19 ; 
: + 190 
3¢ oose re § é 19, _— Bee 38 INPOTOFLAGS, 218 ; 1908 
1A 00BD C3 EB OOIA BLBS =—«INPUT_FLAGS+1, 20 > 1906 
0 A A 5 1As MOVL Busy SAVE_FAB, FAB : b's 
0 0910 ef 3c 149 MOV ZL #e 20, -(SP) 
000000006 &F DD 180 PUSHL CKUPS_OPENINe4 : 
ses Fs 8 166 gaat oi6 Ue. : 1906 
iH i SS ER HEIE, 20m se Ou taehhe " 
1% a tg FF as EB ie LBS QUAL S11; $$ ¥ pe 
* a ; bp 90161 ar ate 
H CKUPS$_NOFILES ; 
coon FRE RR | reteimat ae 
8 FF a3 9 1p¢ gis: BLBC QUAL+11, 238 : 
; #i, FIN_LIST : 
07 oe 8 1 Ef HF 238: Gt” #1, COMTFLAGS, 268 1926 
6 F 1EA CALLS #0, STA RESTART : 
08 A ; 1F1 248: C #4. Quat+i4, 25% : 1928 
5 A ; 1fg ROVAB RYPTO_FINI, RO : 
FB OO1FB CALLS #0, CRYPTO_FINI : 
50 ro 10000000 i (3 ye 258 BISL TobBLSSaee7 EXIT_STATUS, RO ; 1938 


3 Routine Size: 519 bytes, Routine Base: CODE + 0034 
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You~000 Rin - cele routine fer Sacer 1b-s Boer i8e PSE gy Hea tAlS ea hhceoe Secamaiw.ese:0°™ «lf 


$83 1985 0 ELUDOR 


-EXTRN LIBSSIGNAL 


PSECT SUMMARY 

Name Bytes Attributes 
DATA wOves WRT, ME,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
COMMON 2134 NOVEC, WRT, ME.NOSHR, LCL, REL, OVR,NOPIC,ALIGN(2) 
CODE 1 NOVEC.NOWRT, RD » EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

Library Statistics 
sooceees Symbols -------- Pages Processing 

File Total Loaded Percent Mapped Time 

-$255SDUA28: CSYSLIBISTARLET.L32;1 9776 12 0 581 00:01.2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:MAIN/OBJ=OBJ$:MAIN MSRCS$:MAIN/UPDATE=(ENHS$:MAIN) 
Size: me HAL ; 2139 data bytes 


Lexenes/CPU-Min: abi 
ponery Used: 324 pages 
Compilation Complete 
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